home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch10.macromedia / spot.dir / 00044.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  811 b   |  28 lines
  1. global gSlotObjList, cSlotOffset, cBlurCastOffset2, gSlotsFlag, gPicOffset, gStartTime, gCounter
  2.  
  3. on mouseUp
  4.   if gSlotsFlag then
  5.     if the mouseCast = the number of member "CD" then
  6.       set gPicOffset to 49
  7.       set gStartTime to the ticks
  8.       set gCounter to 0
  9.       repeat with t = 1 to 4
  10.         resetForSlots(getAt(gSlotObjList, t))
  11.         set the castNum of sprite (t + cSlotOffset) to t + cBlurCastOffset2
  12.       end repeat
  13.       updateStage()
  14.       go("yourSiteFrame")
  15.     else
  16.       set gPicOffset to 57
  17.       set gStartTime to the ticks
  18.       set gCounter to 0
  19.       repeat with t = 1 to 4
  20.         resetForSlots(getAt(gSlotObjList, t))
  21.         set the castNum of sprite (t + cSlotOffset) to t + cBlurCastOffset2
  22.       end repeat
  23.       updateStage()
  24.       go("PlaySlots")
  25.     end if
  26.   end if
  27. end
  28.